home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 1 / Assassins - Ultimate CD Games Collection (1994)(Weird Science)(Track 1 of 2)[!][Amiga-CD32-CDTV][CDD5332].iso / cards-&-quiz / amos_blackjack / blackjacklearn.amos / blackjacklearn.amosSourceCode < prev    next >
AMOS Source Code  |  1991-08-05  |  930b  |  40 lines
  1. '******************************************************
  2. '*                 BLACKJACK LOADING PROGRAM          *
  3. '*                      by PETER CRAVEN               *
  4. '*                 Written in AMOS Basic1.2           *
  5. '******************************************************
  6. Unpack 1 To 0
  7. Limit Mouse 128,44 To 760,296
  8. Proc SCRNZONES
  9. SCRN=1
  10. Do 
  11.    MK=Mouse Key
  12.    MZ=Mouse Zone
  13.    If MK=1
  14.       If MZ<=3 and MZ<>0
  15.          Ink 12
  16.          Paint 13+(MZ-1)*270,229
  17.          Wait 20
  18.       End If 
  19.       Exit If MZ=1
  20.       If MZ=2
  21.          Add SCRN,-1,1 To 5
  22.          Proc NEXSCREEN[SCRN]
  23.       End If 
  24.       If MZ=3
  25.          Add SCRN,1,1 To 5
  26.          Proc NEXSCREEN[SCRN]
  27.       End If 
  28.    End If 
  29. Loop 
  30. Run "BLACKJACKgame.amos"
  31. Procedure SCRNZONES
  32.    Reserve Zone 3
  33.    For K=1 To 3
  34.       Set Zone K,11+(K-1)*270,227 To 90+(K-1)*270,250
  35.    Next K
  36. End Proc
  37. Procedure NEXSCREEN[SCRN]
  38.    Unpack SCRN To 0
  39.    Proc SCRNZONES
  40. End Proc